NUMBER ASSIGNMENT UTILITIESby Erik WarrenDuring the course of editing a Pascal program or routine, you may find that youare using the statements similar to the following ones very often: My_Int := My_Int + 1; My_Int := My_Int - Your_Int; My_Int := 0;All of those assignment statements require a large number of keystrokes andSHIFTing. In addition to being a generally lazy person, I am also a lazytypist (and a poor one at that), so I wrote three quick routines thatincrement, decrement, and initialize integer variables. These are similar toroutines used in Professor Niklaus Wirth's latest (and greatest) programminglanguage, Modula-2.Inc first requires a variable passed to it, followed by a number or variable tobe used as the increment value. The second parameter is added to the first.The following statements are possible uses of Inc: Inc(My_Int,1); (* My_Int := My_Int + 1; *) Inc(My_Int,Your_Int); (* My_Int := My_Int + Your_Int; *)Dec requires the same parameters as Inc, but it subtracts the second parameterfrom the first instead of adding the two together. The following statementsare possible uses of Dec: Dec(My_Int,255); (* My_Int := My_Int - 255; *) Dec (My_Int,Your_Int); (* My_Int := My_Int - Your_Int; *)Init requires only one parameter, and it will be initialized to the value zero.For example: Init(My_Int); (* My_Int := 0; *)As you may have guessed by looking at the examples, these routines work onlywith Integers, but they may be changed easily to work with variables of otherdata types:PROCEDURE Inc(VAR Dest : Integer; Src : Integer);BEGIN Dest := Dest + SourceEND; (* Increment *)PROCEDURE Dec(VAR Dest : Integer; Src : Integer);BEGIN Dest := Dest - SourceEND; (* Decrement *)PROCEDURE Init(VAR Num : Integer);BEGIN Num := 0END;(* Initialize *)
